﻿Imports System
Imports System.Drawing

Namespace System.Workflow.ComponentModel.Design
    Public Class ActivityDesignerResizeEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New(ByVal sizingEdge As DesignerEdges, ByVal newBounds As Rectangle)
            Me.sizingEdge = sizingEdge
            Me.newBounds = newBounds
        End Sub


        ' Properties
        Public ReadOnly Property Bounds As Rectangle
            Get
                Return Me.newBounds
            End Get
        End Property

        Public ReadOnly Property SizingEdge As DesignerEdges
            Get
                Return Me.sizingEdge
            End Get
        End Property


        ' Fields
        Private newBounds As Rectangle
        Private sizingEdge As DesignerEdges
    End Class
End Namespace

